home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / Preinstalled MacPerl (FAT) / t / mac / FindFolder.t < prev    next >
Encoding:
Text File  |  1995-10-28  |  132 b   |  8 lines  |  [TEXT/McPL]
  1. #!perl
  2.  
  3. require "FindFolder.pl";
  4.  
  5. for ($cmd = "ACDEFPMNTISY"; $c = chop $cmd; ) {
  6.    print "$c: ", MacPerl::FindFolder($c), "\n";
  7. }
  8.